home *** CD-ROM | disk | FTP | other *** search
- object SimpForm: TSimpForm
- Left = 148
- Top = 162
- Width = 766
- Height = 479
- HorzScrollBar.Range = 1200
- VertScrollBar.Range = 2000
- AutoScroll = False
- Caption = 'SimpForm'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 16
- object TitleBand: TQRBand
- Left = 0
- Top = 0
- Width = 1200
- Height = 57
- Align = alTop
- BandType = rbTitle
- Color = clWhite
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ForceNewPage = False
- Frame.Width = 0
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- ParentFont = False
- Ruler = qrrInchesHV
- object Image1: TImage
- Left = 12
- Top = 4
- Width = 69
- Height = 33
- Picture.Data = {<image000.bmp>}
- Stretch = True
- end
- object QRLabel1: TQRLabel
- Left = 100
- Top = 4
- Width = 193
- Height = 36
- Caption = 'QuickReport'
- AlignToBand = False
- Font.Charset = ANSI_CHARSET
- Font.Color = 8404992
- Font.Height = -32
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- end
- object QRLabel2: TQRLabel
- Left = 300
- Top = 20
- Width = 83
- Height = 16
- Caption = 'for Delphi 2.0'
- AlignToBand = False
- Font.Charset = ANSI_CHARSET
- Font.Color = 8404992
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- end
- object QRLabel3: TQRLabel
- Left = 564
- Top = 20
- Width = 167
- Height = 16
- Caption = 'Copyright (c) 1996 QSD AS'
- AlignToBand = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- end
- object QRShape1: TQRShape
- Left = 8
- Top = 44
- Width = 733
- Height = 5
- Brush.Color = clNavy
- Shape = qrsRectangle
- end
- end
- object DetailBand: TQRBand
- Left = 0
- Top = 77
- Width = 1200
- Height = 20
- Align = alTop
- BandType = rbDetail
- Color = clWhite
- ForceNewPage = False
- Frame.Width = 0
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- LinkBand = QRBand2
- Ruler = qrrNone
- object QRDBText1: TQRDBText
- Left = 12
- Top = 0
- Width = 221
- Height = 16
- AlignToBand = False
- DataSource = DataModule2.CustomerSource
- DataField = 'Company'
- end
- object QRDBText3: TQRDBText
- Left = 432
- Top = 0
- Width = 121
- Height = 17
- AlignToBand = False
- DataSource = DataModule2.CustomerSource
- DataField = 'Contact'
- end
- object QRDBText4: TQRDBText
- Left = 560
- Top = 0
- Width = 89
- Height = 17
- AlignToBand = False
- DataSource = DataModule2.CustomerSource
- DataField = 'Phone'
- end
- object QRDBText5: TQRDBText
- Left = 652
- Top = 0
- Width = 85
- Height = 17
- AlignToBand = False
- DataSource = DataModule2.CustomerSource
- DataField = 'FAX'
- end
- object QRDBText2: TQRDBText
- Left = 240
- Top = 0
- Width = 90
- Height = 16
- AlignToBand = False
- AutoSize = True
- DataSource = DataModule2.CustomerSource
- DataField = 'Addr1'
- end
- end
- object PageFooterBand: TQRBand
- Left = 0
- Top = 109
- Width = 1200
- Height = 24
- Align = alTop
- BandType = rbPageFooter
- Color = clWhite
- ForceNewPage = False
- Frame.Width = 0
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Ruler = qrrNone
- object QRSysData1: TQRSysData
- Left = 640
- Top = 4
- Width = 89
- Height = 17
- Alignment = taRightJustify
- AlignToBand = True
- Data = qrsPageNumber
- Text = 'Page '
- end
- end
- object QRBand1: TQRBand
- Left = 0
- Top = 57
- Width = 1200
- Height = 20
- Align = alTop
- BandType = rbColumnHeader
- Color = clWhite
- ForceNewPage = False
- Frame.Width = 0
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Ruler = qrrNone
- object QRLabel4: TQRLabel
- Left = 12
- Top = 0
- Width = 60
- Height = 16
- Caption = 'Company'
- AlignToBand = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object QRLabel5: TQRLabel
- Left = 240
- Top = 0
- Width = 50
- Height = 16
- Caption = 'Address'
- AlignToBand = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object QRLabel6: TQRLabel
- Left = 432
- Top = 0
- Width = 48
- Height = 16
- Caption = 'Contact'
- AlignToBand = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object QRLabel7: TQRLabel
- Left = 560
- Top = 0
- Width = 41
- Height = 16
- Caption = 'Phone'
- AlignToBand = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object QRLabel8: TQRLabel
- Left = 652
- Top = 0
- Width = 24
- Height = 16
- Caption = 'Fax'
- AlignToBand = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object QRBand2: TQRBand
- Left = 0
- Top = 97
- Width = 1200
- Height = 12
- AfterPrint = QRBand2AfterPrint
- Align = alTop
- BandType = rbGroupFooter
- Color = clWhite
- ForceNewPage = False
- Frame.Width = 0
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Ruler = qrrNone
- end
- object SimpRep: TQuickReport
- DataSource = DataModule2.CustomerSource
- ColumnMarginInches = 0
- ColumnMarginMM = 0
- Columns = 1
- DisplayPrintDialog = False
- LeftMarginInches = 0
- LeftMarginMM = 0
- Orientation = poPortrait
- PageFrame.DrawTop = False
- PageFrame.DrawBottom = False
- PageFrame.DrawLeft = False
- PageFrame.DrawRight = False
- PaperLength = 0
- PaperSize = qrpDefault
- PaperWidth = 0
- ReportTitle = 'QuickReport Simple report demonstration'
- RestartData = True
- SQLCompatible = False
- TitleBeforeHeader = False
- Left = 4
- Top = 140
- end
- object QRGroup1: TQRGroup
- FooterBand = QRBand2
- Level = 0
- OnNeedData = QRGroup1NeedData
- Left = 40
- Top = 141
- end
- end
-